inherited fmAddEditON: TfmAddEditON
  Left = 434
  Top = 219
  Width = 1166
  Height = 789
  Caption = 'fmAddEditON'
  Constraints.MinHeight = 789
  Constraints.MinWidth = 1166
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel [0]
    Left = 0
    Top = 45
    Width = 1150
    Height = 23
    Align = alTop
    Alignment = taCenter
    Caption = #1057#1083#1091#1078#1077#1073#1085#1072#1103' '#1079#1072#1087#1080#1089#1082#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGray
    Font.Height = -19
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  inherited sbBottom: TStatusBar
    Top = 724
    Width = 1150
  end
  inherited Panel1: TPanel
    Width = 1150
    inherited BitBtn1: TBitBtn
      Left = 956
    end
    inherited BitBtn2: TBitBtn
      Left = 1044
    end
  end
  object Panel2: TPanel [3]
    Left = 545
    Top = 68
    Width = 605
    Height = 656
    Align = alClient
    TabOrder = 2
    object bFromFile: TcxButton
      Left = 1
      Top = 1
      Width = 603
      Height = 25
      Caption = #1044#1086#1073#1072#1074#1080#1090#1100'/'#1080#1079#1084#1077#1085#1080#1090#1100
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      OnClick = bFromFileClick
      Align = alTop
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000CE0E0000D80E00001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333387F3333333333333333333333333333387F333333333333344333
        3333333333387F3333333333333443333333333333387F333333333333344333
        3333333333387F3333333333333443333333333333387F333333333333344333
        3333387FFFFFFFFFFFFF3344444444444433387777777F777777334444444444
        4433388888887F8888883333333443333333333333387F333333333333344333
        3333333333387F3333333333333443333333333333387F333333333333344333
        3333333333387F33333333333334433333333333333877333333333333333333
        3333333333388833333333333333333333333333333333333333}
      NumGlyphs = 2
    end
    object PdfViewer1: TPdfViewer
      Left = 1
      Top = 26
      Width = 603
      Height = 629
      Align = alClient
      About = 'Synactis PDF Viewer version 1.0'
      AutoOpen = False
      Copies = 1
      EndPage = 0
      FitMode = vmFitBoxHorz
      LayoutMode = lmDontCare
      PageMode = pmStandard
      ShowPrintDialog = True
      ShowScrollBars = True
      ShowToolBar = True
      ShrinkToMargins = True
      StartPage = 1
    end
  end
  object Panel3: TPanel [4]
    Left = 0
    Top = 68
    Width = 545
    Height = 656
    Align = alLeft
    TabOrder = 3
    object Label18: TLabel
      Left = 16
      Top = 12
      Width = 56
      Height = 13
      Caption = #1057#1086#1090#1088#1091#1076#1085#1080#1082
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 16
      Top = 65
      Width = 69
      Height = 13
      Caption = #1044#1072#1090#1072' '#1079#1072#1087#1080#1089#1082#1080
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 23
      Top = 235
      Width = 64
      Height = 13
      Caption = #1057#1086#1076#1077#1088#1078#1072#1085#1080#1077
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label9: TLabel
      Left = 21
      Top = 173
      Width = 31
      Height = 13
      Caption = #1057#1091#1084#1084#1072
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 168
      Top = 173
      Width = 74
      Height = 13
      Caption = #1044#1072#1090#1072' '#1076#1086#1087#1083#1072#1090#1099
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object lcbSotr: TcxDBLookupComboBox
      Left = 15
      Top = 32
      DataBinding.DataField = 'PID_EMPL'
      DataBinding.DataSource = dlgDS
      ParentFont = False
      Properties.DropDownListStyle = lsEditList
      Properties.DropDownRows = 15
      Properties.KeyFieldNames = 'PID'
      Properties.ListColumns = <
        item
          Caption = #1060#1048#1054
          FieldName = 'PP'
        end
        item
          Caption = #1057#1090#1072#1090#1091#1089
          FieldName = 'SDNAME'
        end
        item
          Caption = #1044#1072#1090#1072' '#1088#1086#1078#1076'.'
          Fixed = True
          FieldName = 'PDATEBIRTH'
        end>
      Properties.ListSource = dsPeople
      Properties.MaxLength = 0
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clBlack
      Style.Font.Height = -15
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.Shadow = True
      Style.IsFontAssigned = True
      TabOrder = 0
      OnClick = lcbSotrClick
      OnMouseDown = lcbSotrMouseDown
      Width = 514
    end
    object cxDBDateEdit1: TcxDBDateEdit
      Left = 16
      Top = 83
      DataBinding.DataField = 'ONDATE_DOC'
      DataBinding.DataSource = dlgDS
      ParentFont = False
      Properties.DateButtons = [btnClear, btnToday]
      Properties.InputKind = ikMask
      Properties.SaveTime = False
      Properties.ShowTime = False
      Properties.WeekNumbers = True
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -16
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = [fsBold]
      Style.IsFontAssigned = True
      TabOrder = 1
      Width = 121
    end
    object gbPodrazd: TGroupBox
      Left = 16
      Top = 118
      Width = 513
      Height = 49
      Caption = #1055#1088#1080#1095#1080#1085#1072' '#1076#1086#1087#1083#1072#1090#1099
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      object ltvReason: TdxDBLookupTreeView
        Left = 6
        Top = 19
        Width = 499
        Height = 24
        CanSelectParents = False
        DropDownRows = 25
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        TabOrder = 0
        TabStop = True
        Text = 'ltvReason'
        TreeViewColor = clWindow
        TreeViewCursor = crDefault
        TreeViewFont.Charset = DEFAULT_CHARSET
        TreeViewFont.Color = clWindowText
        TreeViewFont.Height = -11
        TreeViewFont.Name = 'MS Sans Serif'
        TreeViewFont.Style = []
        TreeViewIndent = 19
        TreeViewReadOnly = False
        TreeViewShowButtons = True
        TreeViewShowHint = False
        TreeViewShowLines = True
        TreeViewShowRoot = True
        TreeViewSortType = stNone
        TreeViewStateImages = DMInv.ilBJTree
        OnClick = lcbSotrClick
        OnMouseDown = lcbSotrMouseDown
        DisplayField = 'SDNAME'
        DividedChar = '.'
        ImageIndexField = 'SDISDELETE'
        ListSource = dsSD
        KeyField = 'SDID'
        ListField = 'SDNAME'
        Options = [trDBCanDelete, trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren]
        ParentField = 'SDPARID'
        RootValue = 0
        TextStyle = tvtsShort
        DataField = 'SDID'
        DataSource = dlgDS
      end
    end
    object DBMemo1: TDBMemo
      Left = 17
      Top = 256
      Width = 512
      Height = 377
      Align = alCustom
      DataField = 'ONNOTE'
      DataSource = dlgDS
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      ScrollBars = ssVertical
      TabOrder = 3
      OnClick = lcbSotrClick
    end
    object edONVALUE: TDBEdit
      Left = 19
      Top = 195
      Width = 110
      Height = 27
      DataField = 'ONVALUE'
      DataSource = dlgDS
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -16
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 4
    end
    object edONDATE: TcxDBDateEdit
      Left = 164
      Top = 195
      DataBinding.DataField = 'ONDATE'
      DataBinding.DataSource = dlgDS
      ParentFont = False
      Properties.DateButtons = [btnClear, btnToday]
      Properties.InputKind = ikMask
      Properties.SaveTime = False
      Properties.ShowTime = False
      Properties.WeekNumbers = True
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -16
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = [fsBold]
      Style.IsFontAssigned = True
      TabOrder = 5
      Width = 121
    end
  end
  object qPeople1: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      
        'SELECT P.PID, (COALESCE(P.PLASTNAME,'#39' '#39')||'#39' '#39'||COALESCE(P.PNAME,' +
        #39' '#39')||'#39' '#39'||COALESCE(P.PPATRONYMIC,'#39' '#39')) AS PP,'
      '    SD.SDNAME, d.SDID, P.PDATEBIRTH'
      'FROM PEOPLE P'
      'INNER JOIN DOLJNOST_PEOPLE d ON d.PID = P.PID'
      'INNER JOIN DOLJNOST D1 ON d1.DOLID = d.DOLID'
      'INNER JOIN SYS_DIC SD ON SD.SDID = d1.SDID'
      'WHERE P.PISDELETE IS NULL AND d.DOLISDELETE IS NULL'
      
        'AND CURRENT_DATE BETWEEN D.DOLDATEBEGIN AND COALESCE(d.DOLDATEEN' +
        'D, CURRENT_DATE)'
      'UNION'
      'SELECT FIRST 1 NULL AS PID, NULL AS PP,'
      '    NULL AS SDNAME, NULL AS SDID, NULL AS PDATEBIRTH'
      'FROM PEOPLE P'
      'ORDER BY 2')
    Left = 392
    Top = 182
    object qPeople1PID: TIntegerField
      FieldName = 'PID'
      Origin = '"PEOPLE"."PID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qPeople1PP: TIBStringField
      FieldName = 'PP'
      ProviderFlags = []
      Size = 767
    end
    object qPeople1SDNAME: TIBStringField
      FieldName = 'SDNAME'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
    object qPeople1SDID: TIntegerField
      FieldName = 'SDID'
      Origin = '"P_STATUS"."SDID"'
    end
    object qPeople1PDATEBIRTH: TDateField
      FieldName = 'PDATEBIRTH'
      Origin = '"PEOPLE"."PDATEBIRTH"'
    end
  end
  object dsPeople: TDataSource
    DataSet = qPeople1
    Left = 352
    Top = 182
  end
  object qSD: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT t1.*, SD1.SDISDELETE'
      'FROM'
      '('
      'WITH   recursive'
      '   tree (SDNAME, SDID, SDPARID, o)'
      
        '   AS (SELECT SD.SDNAME, SD.SDID, sd.SDPARID, CAST('#39#39' AS VARCHAR' +
        '(2048)) AS o FROM SYS_DIC SD'
      '      WHERE sd.SDPARID  = 25'
      '      UNION ALL'
      '      SELECT SD1.SDNAME, SD1.SDID, sd1.SDPARID, '#39' '#39' || o'
      ''
      '      FROM SYS_DIC SD1'
      '          INNER JOIN tree t '
      '           ON t.sdid = sd1.SDPARID)'
      ' SELECT  o || SDNAME AS SDNAME, SDID, SDPARID FROM tree t'
      ') AS t1'
      'INNER JOIN SYS_DIC sd1 ON sd1.SDID = t1.sdid'
      'order by 1'
      '')
    GeneratorField.Field = 'SDID'
    Left = 464
    Top = 201
    object qSDSDID: TIntegerField
      FieldName = 'SDID'
      ProviderFlags = []
    end
    object qSDSDPARID: TIntegerField
      FieldName = 'SDPARID'
      ProviderFlags = []
    end
    object qSDSDNAME: TIBStringField
      DisplayLabel = #1069#1083#1077#1084#1077#1085#1090
      FieldName = 'SDNAME'
      ProviderFlags = []
      Size = 2304
    end
    object qSDSDISDELETE: TIntegerField
      DisplayLabel = #1059#1076#1072#1083#1080#1090#1100'?'
      FieldName = 'SDISDELETE'
      Origin = '"SYS_DIC"."SDISDELETE"'
    end
  end
  object dsSD: TDataSource
    DataSet = qSD
    Left = 435
    Top = 199
  end
  object odScan: TOpenDialog
    Filter = 'PDF|*.pdf'
    InitialDir = 
      '\\servpdc\exchange\'#1054#1073#1097#1080#1081' '#1076#1086#1089#1090#1091#1087'\'#1042#1072#1076#1080#1084'_'#1071#1082#1086#1074#1083#1077#1074#1080#1095'_'#1062#1091#1076#1080#1082#1084#1072#1085'\'#1057#1050#1040#1053#1048#1056#1054 +
      #1042#1040#1053#1048#1045'\'#1044#1077#1090#1089#1082#1080#1081' '#1089#1072#1076' 2010-2011'
    Left = 568
    Top = 120
  end
  object sqlClearBlob: TIBSQL
    Database = DMInv.DBRead
    SQL.Strings = (
      'UPDATE OFFICIAL_NOTE t SET t.ONFILE = NULL'
      'WHERE t.ONID = :ID')
    Transaction = DMInv.IBTransaction1
    Left = 610
    Top = 118
  end
end
